uses Crt;

var

       name: string [100];

begin

       clrscr;

       write <'Jak se jmenujete: '>;

       readln <name>;

       writeln < Ahoj <name>, přeji pěkný den a zde jedna básnička od Boobise: "Klou, že se Vám klouže pod podlahou podlaha po dlachách, ach, ách, ááá klouže, klouže to, že. Jo,  z louže i do bláta a zpět do louže to tady všude strašně moc klouže, kouše moc kouše.">

       while not keypressed do;

end.